Imports System
Imports System.Collections.Generic
Imports System.Linq
Imports System.Text

Namespace interop
    Public Module Win32
        Public Sub CheckWin32Error()
            Dim rc As Integer = System.Runtime.InteropServices.Marshal.GetLastWin32Error()
            If rc <> 0 Then
                Throw New System.ComponentModel.Win32Exception(rc)
            End If
        End Sub
    End Module
End Namespace
